﻿Public Class Form4

	Public Const ExitCode_OK = 1
	Public Const ExitCode_Cancel = 2

	Public Property ExitCode As Integer
	Public Property RightModifierKeysEqualsLeft As Boolean
	Public Property StartKeySequenceWithModifierKeys As Boolean

	Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
		ExitCode = ExitCode_OK
		RightModifierKeysEqualsLeft = chkRightLeft.Checked
		StartKeySequenceWithModifierKeys = chkStartSequence.Checked
		Me.Close()
	End Sub

	Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
		ExitCode = ExitCode_Cancel
		Me.Close()
	End Sub
End Class